home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / 2BJACK.BIN / 2-BUTTONJACKET (.txt) next >
Commodore BASIC  |  2019-04-13  |  4KB  |  88 lines
  1. 0 REMODodOEoeH(null)MID$=(null)(null)ODDATA(null)odOEDATA(null)oeH(null)(null)_oaDATAMID$_ofDATA(null)J(null)[aoLETb[aoGOTOHz(null)MID$TAB(VMID$5WCVALH(null)7(null)(null)z J(null)W(null)(null){db (null)CMID${db:J(null){dr(null)REMdodz(null) eCLEFT$J(null)";a:r[210][143]aoaz[232] fJ[255][a{d#[200]:[236] d:[232] eb[250][138]
  2. 1 [131]V2,"NEWLOADCLOSEPOKE>+I(null)CMD;LETMID$(null)(null)CLOSE4STEP=ON^LET(null)(null)`"
  3. 2 [131]2,"       . :==========2-BUTTON=JACKET===E.GIROUX===AUG89========: ."
  4. 3 [131]3,"$0:*STEPSPC(SQRNOTLET SQR(null)FNATOBiSTOPLEFT$+STEP EXP(null)FN2+NOTLEFT$E2DIM(null)INPUT#(null) (null)(null)RUN8(null)(null)INPUT(null)PRINT#(null)(null)NEWJf(null)MID$(null)(null)ASC(null) (null)(null)`"
  5. 4 [131]"       .........................................................."
  6. 5 [143] USE CARE NOT TO CORRUPT ML IN THE PREVIOUS LINES
  7. 10 [143] FUNCTION CALCULATES DECIMAL VALUE FROM LOBYTE/HIBYTE PAIR IN RAM
  8. 11 [150] [165]D(LO)[178]256[172][194](LO[170]N1)[170][194](LO)
  9. 21 [137]202:[143] JUMP OVER SUBROUTINES
  10. 100 [143] SYSPRINT SUBROUTINE -101FF
  11. 101 [129]J[178]N1[164]K:[158]I:[152]6,P$:[130]
  12. 102 [142]:[143]  SYSPRINT SUBROUTINE ENDS
  13. 110 [143] MTLINEPRINT SUBROUTINE - 111FF
  14. 111 [152]6,[200](P$,10)[166]52)": .":[142]:[143]      MTLINEPRINT SUBROUTINE ENDS
  15. 120 [143] BLOXFREEPRT SUBROUTINE - 121FF
  16. 121 K$[178][200](P$,11)[170][196](FI)[170]" FILES ON THE DISK,  LEAVING"[170][196](BF):[152]6,E$
  17. 122 K$[178]K$[170]" BLOCKS FREE     ":[152]6,[200](K$,59)[170]"   : .":[142]:[143]   SUB-END
  18. 130 [143] PGBOT SUBROUTINE - 131FF
  19. 131 [152]6,E$:[152]6,M$:[152]6:[142]:[143]               PGBOT SUBROUTINE ENDS
  20. 140 [143] GETKEY SUBROUTINE - 141FF
  21. 141 [161]K$:[139]K$[178]""[167][153][163]13)"SYS YOUR CHOICE?":[153]"ONONONON":[137]141
  22. 142 [142]:[143]    GETKEY SUBROUTINE ENDS
  23. 200 [143] INITIALIZE SOME VARBLES AND DRAW SCREEN
  24. 202 N0[178].:N1[178]1:N2[178]2:SP[178]32:BF[178]38:[151]53280,N0:[151]53281,N0:[153]"LOADFOR
  25. 212 FORI=N1TO5:PRINT"                                       ":NEXT:PRINT"
  26. 222 [153][199](142)[199](117);:[129]J[178]N1[164]BF:[153][199](100);:[130]:[153][199](105);
  27. 232 [129]K[178]N1[164]5:[153][199](103)[166]BF)[199](104)" "[199](157);:[130]
  28. 242 [153][199](106);:[129]P1[178]N1[164]BF:[153][199](102);:[130]:[153][199](107)
  29. 252 [153]"1ST BUTTON:":[153]"CHOOSE  Q WAIT TO QUIT
  30. 262 PRINT"  L [146] FOR LABEL, 32 FILES MAX
  31. 272 [153]"  J WAIT FOR JACKET, 82 FILES MAX
  32. 282 PRINT"THE DISK DIRECTORY WILL BE PRINTED AS IS
  33. 292 [153]" NO SORTING OR RE-ORGANIZING
  34. 300 REM ASK USER FOR ACTIVITY DESIRED
  35. 303 READP$:PRINT""TAB(12)"2-BUTTON JACKET",P$:GOSUB141 GETKEY SUBROUTINE
  36. 313 LA=N0:IFK$="L"THENLA=NOTN0:K$="J"
  37. 323 IFK$<>"J"THENEND:REM NEITHER JACKET NOR LABEL SELECTED
  38. 333 PRINT"SOURCE DRIVE # 8[157][157][157]";:INPUT DV
  39. 343 PRINT"[145]2ND BUTTON:    ":PRINT"CHOOSE  L [146] FOR UPPER/LOWER CASE PRINTING
  40. 353 [153]"   U WAIT FOR UPPER-CASE/GRAPHICS
  41. 363 PRINT:PRINT" .   [ U IS THE DEFAULT ]   .":GOSUB141 GETKEY SUBROUTINE
  42. 373 P2=N0:IFK$="L"THENP2=7:PRINTCHR$(14)"[145][145]"
  43. 400 REM SET UP MORE VARBLES, NOW THAT DIRLOAD & PRINTING SELECTED
  44. 404 P1=N2+FND(65):READM$:REM LINE0 AND PRINTLINE TOGGLE ML
  45. 414 READI:J=11+FND(65):READP$:REM DATAPTR WILL MARK 1ST : SYMBOL IN PRINTLINE
  46. 415 REM POKE J/256 ETC INTO $AE,AF ***AFTER*** DIRLOAD [WHERE AE IS SOUGHT]
  47. 423 REM GET A USER-SUPPLIED PHRASE FOR HEADER BOX; DO SOME SCREENCLEAR W/ 424
  48. 424 FORI=10TO16:POKE781,I:SYS59903:NEXT
  49. 434 PRINT"A SHORT, INFORMATIVE DESCRIPTOR FOR":PRINT"     THE HEADER BOX
  50. 444 K$[178]"  <-                  ->":[153]K$:[133]E$:M$[178]K$[170]E$
  51. 454 [129]I[178]9[164]12:[151]781,I:[158]59903:[130]:K$[178]"ID; "[170][201](M$,22)[170]" : ."
  52. 500 [143] INITIALIZE DRIVE & READ DISK DIRECTORY
  53. 501 [143] GET ADDRESS NEEDED FROM DATA STATEMENT FOR DIRLOAD ML
  54. 505 [153]"":[153][163]11)"READING DIRECTORY
  55. 515 OPEN15,DV,15,"I0":CLOSE15:READFI:SYS(6+FND(65))
  56. 520 REM READ (ML)STRING -AFTER- DIRLOAD; # OF FILES FOUND IN $FE. $AE,$A POINT
  57. 521 REM TO END OF LOAD.  PUT QUOTE INTO BLOCKSFREE SPACE IN CASE ODD# OF FILES
  58. 522 REM 'BLOCKS FREE' VALUE FOUND USING THIS END-OF-LOAD POINTER
  59. 525 READM$:FI=PEEK(254):I=FND(174)-30:BF=FND(I):POKEI+N2,34
  60. 535 FORK=3TO7:POKEI+K,SP:NEXT
  61. 540 REM NOW CAN POKE IN POINTER FOR STARTING POSITION IN PRINTLINE.  CAN ALSO
  62. 541 REM TOGGLE REM0 ML INTO USABLE CHARACTERS & CLEAR OUT PRINTLINE
  63. 545 POKE175,J/256:POKE174,JAND255:SYSP1
  64. 555 E$="@"+MID$(P$,N2)+"      @":READM$:OPEN6,4,P2
  65. 600 REM CALC LINES ON FACE AND ON FLIP SIDE OF JACKET [IF JACKET]
  66. 606 J=INT(FI/N2+.5):IFJ>41THENJ=41:REM MAX LINES BOTH PORTIONS IS 41
  67. 616 P1=18+LA*N2:IFJ<P1THENP1=J:REM 16 FILELINES IF LABEL, 18 IF JACKET
  68. 626 P2=J-P1:IFP1<18THENP2=N0:REM OBVIOUSLY NO BACK IF FEWER THAN 18 LINES
  69. 630 REM USE $FD$FE TO POINT TO *LAST* OF LEFT-HAND FILE TITLES
  70. 636 I=FND(251)+SP*(P1+P2):POKE254,I/256:POKE253,IAND255
  71. 646 PRINT"":PRINTTAB(11)"OUTPUT TO PRINTER
  72. 700 [143] GO TO IT - PRINT THE JACKET
  73. 707 I[178]828:[152]6:[152]6:[152]6,M$:[152]6,E$
  74. 717 [158]I:[152]6,[200](P$,35);K$:[152]6,E$:[143] SPECIAL HANDLING OF DISKTITLE
  75. 727 K[178]P1:[141]101 [158][153]
  76. 737 K[178]K[171]15:[145]K[172][171](K[177]N0)[137]757,767,777
  77. 747 [129]J[178]K[164]N0:[141]111 MTLINE :[130]
  78. 757 [141]121 BLOX[184]EPRT :[137]777
  79. 767 [141]111 MTLINE
  80. 777 [141]131 PGBOT :[139] LA [167]909
  81. 800 [143] NOW PRINT BACKSIDE OF JACKET
  82. 808 E$[178]" "[170][202](E$,N2,64):[152]6,E$
  83. 818 K[178]P2:[139]K [167] [141]101 [158][153]
  84. 828 [139]P1[177]16 [167] [141]121 BLOX[184]EPRT:K[178]N2[170]K
  85. 838 [139]K[179]25 [167] [152]6:K[178]K[170]N1:[137]838 THAT IS, REPEAT [153]ING EMPTY LINES
  86. 848 [141]131 PGBOT
  87. 909 [160]6:[128]
  88.